object frmWizard: TfrmWizard Left = 101 Top = 109 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsSingle Caption = 'New User Wizard' ClientHeight = 297 ClientWidth = 471 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object cmdFinish: TButton Left = 409 Top = 273 Width = 54 Height = 21 HelpContext = 445 Caption = '&Finish' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 1 OnClick = cmdFinishClick end object cmdNext: TButton Left = 350 Top = 273 Width = 54 Height = 21 HelpContext = 440 Caption = '&Next>' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = cmdNextClick end object cmdBack: TButton Left = 296 Top = 273 Width = 54 Height = 21 HelpContext = 435 Caption = '<&Back' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = cmdBackClick end object cmdCancel: TButton Left = 234 Top = 273 Width = 54 Height = 21 HelpContext = 430 Cancel = True Caption = 'Cancel' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 4 end object cmdHelp: TButton Left = 166 Top = 273 Width = 54 Height = 21 HelpContext = 425 Caption = '&Help' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 Visible = False OnClick = cmdHelpClick end object PageControl1: TPageControl Left = 6 Top = 5 Width = 459 Height = 262 ActivePage = PageStartMenu TabOrder = 0 object PageName: TTabSheet Caption = 'PageName' TabVisible = False object Shape1: TShape Left = 8 Top = 13 Width = 360 Height = 43 Brush.Color = clTeal Pen.Style = psClear end object Label1: TLabel Left = 17 Top = 68 Width = 360 Height = 39 Caption = 'This wizard creates a new user account in a few simple steps. A' + 'fter you complete each step, click the Next button to move to th' + 'e next step.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Label2: TLabel Left = 17 Top = 160 Width = 101 Height = 13 Caption = 'Type the user'#39's name' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 38 Top = 207 Width = 17 Height = 13 Caption = 'TIP' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 67 Top = 207 Width = 342 Height = 13 Caption = 'A short name (for instance first name only) is easier to type an' + 'd remember' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Label14: TLabel Left = 21 Top = 20 Width = 252 Height = 35 Caption = 'New User Wizard' Color = clBtnFace Font.Color = clNavy Font.Height = -32 Font.Name = 'MS Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label13: TLabel Left = 17 Top = 108 Width = 352 Height = 39 Caption = 'First enter the new user'#39's name. The user will be required to e' + 'nter this name and a password when logging on to Windows. The u' + 'ser is prompted to provide a new password the first time he or s' + 'he logs on.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Image1: TImage Left = 411 Top = 21 Width = 32 Height = 32 Picture.Data = {} end object Image2: TImage Left = 388 Top = 52 Width = 32 Height = 32 Picture.Data = {} end object Label21: TLabel Left = 17 Top = 17 Width = 252 Height = 35 Caption = 'New User Wizard' Color = clBtnFace Font.Color = clYellow Font.Height = -32 Font.Name = 'MS Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object txtName: TEdit Left = 39 Top = 179 Width = 185 Height = 21 HelpContext = 300 Ctl3D = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 0 OnChange = txtNameChange end end object PageIcon: TTabSheet Caption = 'PageIcon' TabVisible = False object bevelIcon: TBevel Left = 30 Top = 66 Width = 38 Height = 38 Style = bsRaised end object Label3: TLabel Left = 24 Top = 23 Width = 349 Height = 26 Caption = 'Select an icon that will be displayed on the desktop for the use' + 'r'#39's program folder. This icon is also used to identify the user' + ' in Crowd Control.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Label6: TLabel Left = 27 Top = 227 Width = 17 Height = 13 Caption = 'TIP' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 55 Top = 227 Width = 354 Height = 26 Caption = 'Click Browse to select an icon file in another directory on your' + ' hard drive' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object imgUserIcon: TImage Left = 33 Top = 69 Width = 32 Height = 32 end object Image3: TImage Left = 411 Top = 21 Width = 32 Height = 32 Picture.Data = {} end object Image4: TImage Left = 388 Top = 52 Width = 32 Height = 32 Picture.Data = {} end object Image5: TImage Left = 412 Top = 68 Width = 32 Height = 32 Picture.Data = {} end object cmdBrowseIcon: TButton Left = 22 Top = 116 Width = 54 Height = 21 HelpContext = 310 Caption = 'Browse' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 TabStop = False OnClick = cmdBrowseIconClick end object lstviewIcons: TFileView Left = 88 Top = 62 Width = 292 Height = 159 HelpContext = 315 Columns = <> ReadOnly = True HideSelection = False OnChange = lstviewIconsChange TabOrder = 1 LargeImages = lstviewIcons. SmallImages = lstviewIcons. end end object PageDrives: TTabSheet Caption = 'PageDrives' TabVisible = False object Label17: TLabel Left = 24 Top = 21 Width = 262 Height = 13 Caption = 'Select drives to hide from the user in Windows Explorer ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label15: TLabel Left = 191 Top = 48 Width = 176 Height = 65 Caption = 'Selected drives will not be displayed in Windows Explorer or the' + ' common file dialogs. This makes it difficult for the user to v' + 'iew, delete or modify files on the selected drives. ' WordWrap = True end object Label18: TLabel Left = 27 Top = 160 Width = 395 Height = 39 Caption = 'Files on hidden drives can be opened if the user types the full ' + 'path and name of the file in the File/Open dialog box or the DOS' + ' command prompt, or if the user searches for the file with the F' + 'ind command on Windows'#39' Start menu. ' WordWrap = True end object Image10: TImage Left = 411 Top = 21 Width = 32 Height = 32 Picture.Data = {} end object Image11: TImage Left = 388 Top = 52 Width = 32 Height = 32 Picture.Data = {} end object Image12: TImage Left = 412 Top = 68 Width = 32 Height = 32 Picture.Data = {} end object Image13: TImage Left = 388 Top = 92 Width = 32 Height = 32 Picture.Data = {} end object Label20: TLabel Left = 28 Top = 207 Width = 397 Height = 26 Caption = 'You can further limit the user'#39's ability to access these drives ' + 'by selecting the '#39'Remove Find Command'#39' and '#39'Disable MS-DOS Promp' + 't'#39' settings in Step 4.' WordWrap = True end object lstHideDrives: TDriveList Left = 27 Top = 48 Width = 153 Height = 103 HelpContext = 320 ExtendedSelect = False ItemHeight = 13 Items.Strings = ( 'a:' 'c: []') MultiSelect = True Style = lbOwnerDrawFixed TabOrder = 0 end end object PageRestrictions: TTabSheet Caption = 'PageRestrictions' TabVisible = False object Label10: TLabel Left = 24 Top = 25 Width = 282 Height = 13 Caption = 'Select Windows 95 restrictions that should apply to this user' end object Label8: TLabel Left = 23 Top = 224 Width = 297 Height = 13 Caption = 'TIP For more information about an item, select it and press F' + '1' end object Image6: TImage Left = 411 Top = 21 Width = 32 Height = 32 Picture.Data = {} end object Image7: TImage Left = 388 Top = 52 Width = 32 Height = 32 Picture.Data = {} end object Image8: TImage Left = 412 Top = 68 Width = 32 Height = 32 Picture.Data = {} end object Image9: TImage Left = 388 Top = 92 Width = 32 Height = 32 Picture.Data = {} end object Image28: TImage Left = 411 Top = 108 Width = 32 Height = 32 Picture.Data = {} end object chkNoRun: TCheckBox Left = 46 Top = 54 Width = 267 Height = 17 HelpContext = 325 Caption = 'Disable '#39'Run'#39' Command on Start Menu' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object chkNoFind: TCheckBox Left = 46 Top = 74 Width = 276 Height = 17 HelpContext = 330 Caption = 'Remove '#39'Find'#39' Command from Start Menu' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object chkNoDesktop: TCheckBox Left = 46 Top = 114 Width = 267 Height = 17 HelpContext = 340 Caption = 'Hide All Items on Desktop' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object chkNoSettings: TCheckBox Left = 46 Top = 94 Width = 267 Height = 17 HelpContext = 335 Caption = 'Disable '#39'Settings'#39' Command on Start Menu' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object chkNoRegEdit: TCheckBox Left = 46 Top = 135 Width = 267 Height = 17 HelpContext = 345 Caption = 'Disable Registry Editing Tools' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object chkNoDOS: TCheckBox Left = 46 Top = 155 Width = 267 Height = 17 HelpContext = 350 Caption = 'Disable MS-DOS prompt' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 5 end object chkNoSDOM: TCheckBox Left = 46 Top = 175 Width = 267 Height = 17 HelpContext = 355 Caption = 'Disable Single-Mode MS-DOS Applications' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 6 end object chkRestrictSystem: TCheckBox Left = 46 Top = 195 Width = 281 Height = 18 HelpContext = 360 Caption = 'Disable System Configuration Settings in Control Panel' TabOrder = 7 end end object PageApplications: TTabSheet Caption = 'PageApplications' TabVisible = False object Label9: TLabel Left = 32 Top = 15 Width = 337 Height = 58 AutoSize = False Caption = 'To limit the user to certain applications, check the box below. ' + ' Then click the Add Program button to add applications to the li' + 'st of programs the user may run. If this option is selected, t' + 'he user will only be able to run the listed programs.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Image15: TImage Left = 411 Top = 21 Width = 32 Height = 32 Picture.Data = {} end object Image16: TImage Left = 388 Top = 52 Width = 32 Height = 32 Picture.Data = {} end object Image17: TImage Left = 412 Top = 68 Width = 32 Height = 32 Picture.Data = {} end object Image18: TImage Left = 388 Top = 92 Width = 32 Height = 32 Picture.Data = {} end object Image19: TImage Left = 411 Top = 108 Width = 32 Height = 32 Picture.Data = {} end object Image20: TImage Left = 388 Top = 132 Width = 32 Height = 32 Picture.Data = {} end object lblTip: TLabel Left = 258 Top = 190 Width = 183 Height = 65 AutoSize = False Caption = 'Applications which Windows 95 runs at startup have been added to' + ' the application list.' WordWrap = True end object Label23: TLabel Left = 232 Top = 191 Width = 17 Height = 13 Caption = 'TIP' end object lstAllowedApplications: TListBox Left = 32 Top = 103 Width = 177 Height = 140 HelpContext = 375 Ctl3D = True ItemHeight = 13 ParentCtl3D = False TabOrder = 0 end object btnRemoveApplication: TBitBtn Left = 230 Top = 135 Width = 127 Height = 28 HelpContext = 385 Caption = '&Remove Program' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = btnRemoveApplicationClick Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777700000007788777777777777700000007911877777987777700000007911 1877791187777000000079111187911118777000000077911118111118777000 0000777911111111877770000000777791111118777770000000777771111187 7777700000007777791111877777700000007777911111877777700000007779 1118111877777000000077911187911187777000000077911877791118777000 0000777917777791117770000000777777777779197770000000777777777777 777770000000} Margin = 6 Spacing = -1 end object btnAddApplication: TBitBtn Left = 230 Top = 103 Width = 127 Height = 28 HelpContext = 380 Caption = '&Add Program' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = btnAddApplicationClick Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777888888 7777777770000008777777777022220877777777702222087777777770222208 8888700000222200000870222222222222087022222222222208702222222222 2208700000222200000877777022220777777777702222077777777770222207 7777777770222207777777777000000777777777777777777777} Margin = 6 Spacing = -1 end object chkRunListed: TCheckBox Left = 32 Top = 79 Width = 177 Height = 17 HelpContext = 370 Caption = '&Only run listed applications' TabOrder = 3 end end object PageStartMenu: TTabSheet Caption = 'PageStartMenu' TabVisible = False object Label16: TLabel Left = 24 Top = 15 Width = 206 Height = 13 Caption = 'Select Program Folder for User'#39's Start Menu' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Image21: TImage Left = 411 Top = 21 Width = 32 Height = 32 Picture.Data = {} end object Image22: TImage Left = 388 Top = 52 Width = 32 Height = 32 Picture.Data = {} end object Image23: TImage Left = 412 Top = 68 Width = 32 Height = 32 Picture.Data = {} end object Image24: TImage Left = 388 Top = 92 Width = 32 Height = 32 Picture.Data = {} end object Image25: TImage Left = 411 Top = 108 Width = 32 Height = 32 Picture.Data = {} end object Image26: TImage Left = 388 Top = 132 Width = 32 Height = 32 Picture.Data = {} end object Image27: TImage Left = 411 Top = 148 Width = 32 Height = 32 Picture.Data = {} end object btnOwnStartMenu: TRadioButton Left = 28 Top = 54 Width = 327 Height = 17 HelpContext = 395 Caption = 'Create New Program Folder Copied from User Selected Below' Checked = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 TabStop = True end object btnShareStartMenu: TRadioButton Left = 28 Top = 71 Width = 297 Height = 17 HelpContext = 400 Caption = 'Share Program Folder With User Selected Below' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object lstviewUsers: TListView Left = 13 Top = 90 Width = 133 Height = 132 HelpContext = 405 Columns = <> ReadOnly = True HideSelection = False OnChange = lstviewUsersChange TabOrder = 3 ViewStyle = vsList SmallImages = SmallUsers end object fvStartFolder: TFolderView Tag = 109 Left = 157 Top = 90 Width = 208 Height = 132 HelpContext = 410 ReadOnly = True Indent = 19 ParentColor = False TabOrder = 4 Images = fvStartFolder. end object btnEmptyStartMenu: TRadioButton Left = 28 Top = 37 Width = 318 Height = 17 HelpContext = 390 Caption = 'Create Empty Program Folder' TabOrder = 0 end object chkCreateShortcut: TCheckBox Left = 32 Top = 228 Width = 345 Height = 17 Caption = 'Create Shortcut to Program Folder on User'#39's Desktop' State = cbChecked TabOrder = 5 end end object PageFinish: TTabSheet Caption = 'PageFinish' TabVisible = False object Shape2: TShape Left = 374 Top = 4 Width = 65 Height = 245 Brush.Color = clTeal Pen.Style = psClear end object Label11: TLabel Left = 393 Top = 23 Width = 29 Height = 210 Alignment = taCenter Caption = 'F I N I S H' Font.Color = clNavy Font.Height = -32 Font.Name = 'MS Serif' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True end object Label12: TLabel Left = 28 Top = 8 Width = 318 Height = 26 Caption = 'Those are all the answers the Wizard needs to create the new use' + 'r'#39's account!' WordWrap = True end object Label19: TLabel Left = 28 Top = 40 Width = 315 Height = 39 Caption = 'If you want to change any settings, click Back. If you are sati' + 'sfied with the settings, click Finish. It may take a minute or ' + 'two for the Wizard to set up the new user'#39's account. ' WordWrap = True end object Label22: TLabel Left = 390 Top = 20 Width = 29 Height = 210 Alignment = taCenter Caption = 'F I N I S H' Font.Color = clYellow Font.Height = -32 Font.Name = 'MS Serif' Font.Style = [fsBold] ParentFont = False Transparent = True WordWrap = True end object memoSummary: TMemo Left = 24 Top = 88 Width = 335 Height = 157 HelpContext = 420 Color = clBtnFace Lines.Strings = ( '') ReadOnly = True ScrollBars = ssVertical TabOrder = 0 WantReturns = False WordWrap = False end end end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Left = 16 Top = 269 end object SmallUsers: TImageList Left = 72 Top = 269 end end